﻿module utils
    // utils
    let flatten (A:'a[,]) = A |> Seq.cast<'a>
    let getColumn c (A:_[,]) =
        flatten A.[*,c..c] |> Seq.toArray